home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / -color blend (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  383 b   |  12 lines
  1. 10 POKE53265,59:POKE53272,25:POKE53281,12:PRINT"[147]"
  2. 50 A$="[213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213]":A$=A$+A$+A$+A$:A$=A$+A$
  3. 60 POKE808,234:FORA=32TO63STEP2:POKE648,A:PRINT""A$;A$;A$;A$:NEXT:POKE648,4
  4. 70 PRINT"[147]"
  5. 100 FORA=0TO24:FORB=0TO39:POKE1024+A*40+B,((BAND15)+(AAND15)*16):NEXT:NEXT
  6. 105 POKE198,0
  7. 110 GETA$:IFA$<>" "THEN110
  8. 115 PRINT"[147]"
  9. 120 FORA=1024TO2023:POKEA,INT(RND(1)*256):NEXT
  10. 130 GETA$:IFA$<>" "THEN130
  11. 140 POKE808,237:POKE679,0:SYS679
  12.